5 IFX=0THENX=1:LOAD"UNPACKER",8,1
6 IFX=1THENX=2:LOAD"ALF.SHP",8,1
7 IFX=2THENX=3:LOAD"HI-RES TEXT.O",8,1
10 POKE249,224:POKE250,204:REM SCREEN/COLOR
20 POKE251,0:POKE252,64:REM SHP BUFFER
30 POKE253,0:POKE254,0:REM   X-POS,Y-POS
35 POKE53280,.: REM  BORDER
50 SYS51456:    REM  UNPACK NORMAL SHP
60 SYS51459
70 F$="ALFREDO"
80 PRINT"[147]LOADF$,8"
81 PRINT""T$;
82 PRINT"RUN"
83 POKE631,13:POKE632,13:POKE198,2:END